while in perl

welcome to shbcf.ru